#!/usr/bin/env perl
#
#
#

use 5.010;
use strict;


eval
{
    1 / 0;
    sleep(100);
};

if($@)
{
    say $@;
}

say "test"."test111";

